Check C65C0D0A
Auto 8224

# Run-time Variables

Var r: Num = 532
Var m: Num = 46
Var z: NumArray(64) = 0, 48, 44, 27, 38, 76, 72, 112, 24, 120, 0, 164, 0, 164, 0, 164, 0, 38, 20, 56, 68, 50, 48, 96, 68, 140, 20, 134, 0, 152, 0, 152, 0, 26, 24, 70, 72, 80, 38, 115, 45, 164, 0, 144, 0, 144, 0, 144, 0, 38, 16, 23, 25, 72, 68, 96, 25, 120, 16, 168, 0, 152, 0, 152
Var n: NumFOR = 33, 64, 1, 20, 2
Var f: NumFOR = 43, 46, 2, 2003, 2

# End Run-time Variables

 466 RESTORE 8131: DIM z(64)
 468 LET r=100
 470 FOR n=1 TO 64
 472 READ z(n)
 474 NEXT n
 475 FOR k=0 TO 10
 476 LET n=1: LET m=14: GO SUB 486: GO SUB 486
 478 LET n=17: LET m=30: GO SUB 486: GO SUB 486
 480 LET n=33: LET m=46: GO SUB 486: GO SUB 486
 482 LET n=49: LET m=62: GO SUB 486: GO SUB 486
 484 NEXT k
 486 INK 2+INT (0.02*PEEK r)
 488 FOR f=n TO m STEP 2
 490 PLOT OVER 1;z(f),z(f+1)
 492 DRAW OVER 1;z(f+2)-z(f),z(f+3)-z(f+1)
 494 LET r=r+1
 496 NEXT f
 498 RETURN
8131 DATA 0,48,44,27,38,76,72,112,24,120,0,164,0,164,0,164
8132 DATA 0,38,20,56,68,50,48,96,68,140,20,134,0,152,0,152
8133 DATA 0,26,24,70,72,80,38,115,45,164,0,144,0,144,0,144
8134 DATA 0,38,16,23,25,72,68,96,25,120,16,168,0,152,0,152
